Acceuil des enfants d’âge préscolaire

	détail des accueils collectifs		Particuliers employeurs
AUVERGNE- RHÔNE-ALPES	35 623	2 141	558	640	0	32 284	13,5	2 415	10,1	40 762	10 081
BOURGOGNE- FRANCHE-COMTE	12 171	1 610	398	127	0	10 036	15,2	749	12,3	16 118	1 335
BRETAGNE	12 276	889	1 046	136	0	10 205	12,9	1 156	30,1	17 138	3 095
CENTRE - VAL DE LOIRE	10 078	1 507	930	66	0	7 575	13,0	1 726	6,6	13 705	1 690
CORSE	2 043	994	35	22	0	992	22,9	25	6,2	402	110
GRAND EST	29 402	3 511	986	1 141	0	23 764	17,8	2 692	9,2	27 032	2 868
HAUTS-DE-FRANCE	23 347	4 790	2 358	575	0	15 624	11,6	2 740	24,5	30 351	4 532
ILE-DE-FRANCE	130 969	48 585	4 198	2 733	0	75 453	27,4	17 176	4,5	34 855	45 763
NORMANDIE	12 466	1 482	570	114	0	10 300	12,5	976	10,4	19 540	2 421
NOUVELLE-AQUITAINE	25 182	509	676	97	0	23 900	15,7	4 248	8,9	25 027	4 712
OCCITANIE	35 091	3 592	839	524	0	30 136	20,6	3 090	9,8	19 262	4 606
PAYS DE LA LOIRE	16 052	3 577	897	72	0	11 506	13,6	927	14,4	25 505	4 524
PACA	39 670	1 033	601	1 058	0	36 978	25,4	2 383	6,2	12 436	3 646
France métropolitaine	384 370	74 220	14 092	7 305	0	288 753	18,8	40 303	10,8	282 133	89 383
Source : DREES, enquête aide sociale
¹ pour 100 enfants nés au cours des 3 dernières années ² Rentrée 2019-2020 pour 100 enfants de 2 ans

	détail des accueils collectifs		Particuliers employeurs
Côte-d’Or	3 035	0	0	115	0	2 920	19,0	185	11,9	2 997	299
Doubs	2 660	1 081	119	0	0	1 460	15,1	167	9,0	3 704	288
Jura	830	110	35	0	0	685	11,5	59	14,7	1 509	124
Nièvre	683	150	0	12	0	521	13,9	30	16,8	844	72
Haute-Saône	703	10	15	0	0	678	10,9	17	12,2	1 655	81
Saône-et-Loire	2 217	0	84	0	0	2 133	15,1	185	16,3	2 982	315
Yonne	1 342	138	88	0	0	1 116	14,1	84	8,3	1 684	90
Territoire de Belfort	701	121	57	0	0	523	15,3	22	13,5	743	66
BOURGOGNE- FRANCHE-COMTE	12 171	1 610	398	127	0	10 036	15,2	749	12,3	16 118	1 335
France métropolitaine	384 370	74 220	14 092	7 305	0	288 753	18,8	40 303	10,8	282 133	89 383
Source : DREES, enquête aide sociale
¹ pour 100 enfants nés au cours des 3 dernières années ² Rentrée 2019-2020 pour 100 enfants de 2 ans

	Côte-d’Or	Doubs	Jura	Nièvre	Haute-Saône	Saône-et-Loire	Yonne	Territoire de Belfort	BOURGOGNE- FRANCHE-COMTE	France métropolitaine
Nombre de places en accueil collectif	3 035	2 660	830	683	703	2 217	1 342	701	12 171	384 370
Crèches collectives (y compris parentales)	0	1 081	110	150	10	0	138	121	1 610	74 220
Haltes garderies	0	119	35	0	15	84	88	57	398	14 092
Jardins d’enfants	115	0	0	12	0	0	0	0	127	7 305
Jardins d’éveil	0	0	0	0	0	0	0	0	0	0
Multi-accueil	2 920	1 460	685	521	678	2 133	1 116	523	10 036	288 753
Source : DREES, enquête aide sociale

---
title: "Acceuil des enfants d'âge préscolaire"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    social: menu
    source_code: embed
    navbar:
      - { title: "Accueil", href: DRAJESBFC.html, align: right, icon: fa-home }
    theme: simplex
---

```{r setup, include=FALSE ,echo=FALSE, cache=F, plotly=T}

load("C:/Users/plebre/Documents/projets R/DRAJES/data/jeunesse/PMI.RData")
load("C:/Users/plebre/Documents/projets R/DRAJES/data/demo/cartes.RData")

pal <- colorBin("YlOrBr", domain =0:100 ,bins= c(0,5, 7.5,10, 12.5, 15, 17.5, 20,25, 100) )

#pal3 <- colorBin("YlOrBr", domain =0:100 ,bins= c(0, 5,7.5, 10,12.5, 15,20, 100) )


# Option de chunk
knitr::opts_chunk$set(
 fig.width = 6,
 fig.asp = 0.8,
 out.width = "80%"
)

options(knitr.kable.NA = '')
options(knitr.table.format = "html")
```


![](C:/Users/plebre/Documents/projets R/DRAJES/images/BFC_s.svg) Régions {data-orientation="rows" height=30}
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="100"}
-----------------------------------------------------------------------

### Données générales sur les accueils des enfants d'âge préscolaire

**12 200** places en accueil collectif en Bourgogne-Franche-Comté soit **15.2** places pour 100 enfants nés au cours des 3 dernières années.  
**750** places en accueil familial.    
**12.3%** des enfants de moins de ans sont scolarisés.  
**16 100** assistantes maternelles et **1 300** gardes d'enfants à domicile.


Row {.tabset .tabset-fade .tabset-pills data-height="900"}
-----------------------------------------------------------------------

### Accueils d'enfants d'âge préscolaire

```{r}
ACM_PMI %>% pivot_longer(-1,names_to = "reg") %>% pivot_wider(names_from = ...1) %>% select(-8,-12) %>%
  rename("Taux déquipement en accueil collectif¹" = "pour 100 enfants nés au cours des 3 dernières années",
         "Taux de scolarisation des enfants de 2 ans²" = "Taux de scolarisation des enfants de 2 ans (Rentrée 2019-2020 pour 100 enfants de 2 ans) (2)") %>%
  mutate(`Taux déquipement en accueil collectif¹`=round(`Taux déquipement en accueil collectif¹`,1),
          `Taux de scolarisation des enfants de 2 ans²`=round(`Taux de scolarisation des enfants de 2 ans²`,1) )%>%
  kable(format.args = list(decimal.mark = ",", big.mark = " "), escape = F,
    align="crrrrrrcrcrrrr")%>%
  kable_styling("hover", full_width = F) %>%
  #column_spec(1,width = "10cm")%>%
  column_spec(c(2,8,10), bold=T) %>%
  row_spec(2,background = "#E0FFFF75",  bold = T , color = "steelblue") %>%
  add_header_above(c( " "=2,"détail des accueils collectifs"=5," "=3,"Particuliers employeurs"=2) ) %>%
  #row_spec(c(2,9,17,25,33,41),bold = T,color = "red") %>%
  footnote(general = "DREES, enquête aide sociale", general_title = "Source : ",
            number = c("pour 100 enfants nés au cours des 3 dernières années \n","Rentrée 2019-2020 pour 100 enfants de 2 ans"),
            footnote_as_chunk = T)  %>%
  scroll_box(height = "800px")


```

### Comparaisons régionales

```{r}
bar <- as.data.frame(t(ACM_PMI %>% slice(1)) )%>% mutate(total=as.numeric(V1)) %>% slice(2:14) %>% arrange(desc(total))
hchart(bar
         ,"bar", hcaes(x=rownames(bar),y=total ,color=c(rep("#ffd700",10),"#6a5acd",rep("#ffd700",2))  ),
       showInLegend = T, name = "Ensemble des lieux d'accueil", pointWidth = 20) %>%
     hc_xAxis(title=list(text="Régions")) %>%
    hc_yAxis(title=list(text="Nombre de places en accueil collectif")) %>%
    hc_add_theme(thm) 
```




### Structure des places ouvertes
Une très large majorité de multi-accueils en Bourgogne-Franche-Comté
```{r}
bar <- ACM_PMI %>% slice(2:6)%>% select(1:14) %>% pivot_longer(-1,names_to = "REG") 

 

hchart(bar,
"bar",
hcaes(x=REG,y=value,group=...1),
  showInLegend = T, stacking="percent") %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```


### Taux d'équipements en accueil collectif pour 100 enfants
7e région en taux d'accueils pour 100 enfants nés au cours des 3 dernières années

```{r}
hchart(ACM_PMI %>% slice(8)%>% select(1:14) %>% pivot_longer(-1,names_to = "REG") %>%
         mutate(value=round(value,2)) %>% arrange(desc(value))
,
"bar",
hcaes(x=REG,y=value,color=c(rep("#ffd700",6),"#6a5acd",rep("#ffd700",6)) ) ,
name="Taux d'accueils collectifs pour 100 enfants",
  showInLegend = T) %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```



### Taux de scolarisation des enfants de 2 ans

4e région pour le taux de scolarisation des enfants de 2 ans

```{r}
hchart(ACM_PMI %>% slice(10)%>% select(1:14) %>% pivot_longer(-1,names_to = "REG") %>%
         mutate(value=round(value,2)) %>% arrange(desc(value))
,
"bar",
hcaes(x=REG,y=value,color=c(rep("#ffd700",3),"#6a5acd",rep("#ffd700",9)) ) ,
name="Taux de scolarisation des enfants de 2 ans",
  showInLegend = T) %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```


### Carte
```{r}
cartereg <- ACM_PMI %>% slice(8,10)%>% select(1:14) %>% pivot_longer(!...1,names_to = "REG") %>% pivot_wider(names_from = ...1,values_from = value) %>% rename("accueil"=2,"scolarisation"=3) %>% 
  mutate(accueil=round(accueil,1),scolarisation=round(scolarisation,1) ) %>%
  mutate(INSEE_REG=regwgs@data %>% arrange((NOM_REG_M))%>% select(INSEE_REG) %>% pull() )

cartereg <- merge(regwgs,cartereg,by="INSEE_REG")

leaflet(cartereg) %>%   addProviderTiles(providers$Wikimedia) %>% 
  setView(lng = 5.1, lat = 47.27, zoom = 6) %>%
  addPolygons(data=reg27carto,group  = "BFC",fill = F,color="#9370DB",weight = 5, opacity = 1) %>%
addPolygons(weight=2,opacity = 0.9,color = "#2F4F4F", fillColor = ~pal(accueil),
              popup = popupTable(cartereg@data %>% 
                                   select(Région=NOM_REG_M,pop,txaccueils=accueil),
                                  feature.id=F,row.numbers = F),
            group="taux d'accueils collectifs") %>% 
  addPolygons(weight=2,opacity = 0.9,color = "#2F4F4F", fillColor = ~pal(scolarisation),
              popup = popupTable(cartereg@data %>% 
                                   select(Région=NOM_REG_M,pop,txscolarisation=scolarisation),
                                  feature.id=F,row.numbers = F),
             group="taux de scolarisation") %>%   
  addLegend("bottomright", pal = pal, values = 0:100,   
           title = "taux") %>%
  addLayersControl( baseGroups =  c("taux d'accueils collectifs","taux de scolarisation"),
    options = layersControlOptions(collapsed = F,autoZIndex = F))  

 
```


  
  
![](C:/Users/plebre/Documents/projets R/DRAJES/images/BFC_dep_s.svg) Départements {data-orientation="rows" height=30}
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="100"}
-----------------------------------------------------------------------


### Données générales sur les accueils des enfants d'âge préscolaire

12 200 places en accueil collectif en Bourgogne-Franche-Comté 

Row {.tabset .tabset-fade .tabset-pills data-height="900"}
-----------------------------------------------------------------------

### Accueils d'enfants d'âge préscolaire

```{r}
ACM_PMI_dep %>% 
  relocate(`BOURGOGNE-
FRANCHE-COMTE`,.before = `France métropolitaine`) %>%
  pivot_longer(-1,names_to = "dep") %>% pivot_wider(names_from = ...1) %>% select(-8,-12) %>%
  rename("Taux déquipement en accueil collectif¹" = "pour 100 enfants nés au cours des 3 dernières années",
         "Taux de scolarisation des enfants de 2 ans²" = "Taux de scolarisation des enfants de 2 ans (Rentrée 2019-2020 pour 100 enfants de 2 ans) (2)") %>%
  mutate(`Taux déquipement en accueil collectif¹`=round(`Taux déquipement en accueil collectif¹`,1),
          `Taux de scolarisation des enfants de 2 ans²`=round(`Taux de scolarisation des enfants de 2 ans²`,1) )%>%
  kable(format.args = list(decimal.mark = ",", big.mark = " "), escape = F,
    align="crrrrrrcrcrrrr")%>%
  kable_styling("hover", full_width = F) %>%
  #column_spec(1,width = "10cm")%>%
  column_spec(c(2,8,10), bold=T) %>%
  row_spec(9,background = "#E0FFFF75",  bold = T , color = "steelblue") %>%
  add_header_above(c( " "=2,"détail des accueils collectifs"=5," "=3,"Particuliers employeurs"=2) ) %>%
  #row_spec(c(2,9,17,25,33,41),bold = T,color = "red") %>%
  footnote(general = "DREES, enquête aide sociale", general_title = "Source : ",
           number = c("pour 100 enfants nés au cours des 3 dernières années \n","Rentrée 2019-2020 pour 100 enfants de 2 ans"),
            footnote_as_chunk = T)  %>%
  scroll_box(height = "800px")


```


### Comparaisons départementales

```{r}
bar <- as.data.frame(t(ACM_PMI_dep %>% slice(1)) )%>% mutate(total=as.numeric(V1)) %>% slice(3:10) %>% arrange(desc(total))
hchart(bar
         ,"bar", hcaes(x=rownames(bar),y=total   ),
       showInLegend = T, name = "Nombre de places en accueil collectif", pointWidth = 20) %>%
    hc_xAxis(title=list(text="Départements")) %>%
    hc_yAxis(title=list(text="Nombre de places en accueil collectif")) %>%
    hc_add_theme(thm) 
```


### Détail des accueils collectifs



```{r}
ACM_PMI_dep %>% slice(1:6)%>%
  rename(" "="...1") %>% relocate(2,.before = 11) %>%
  kable(format.args = list(decimal.mark = ",", big.mark = " "), escape = F,
    align="crrrrrrrrrrrrrr")%>%
  kable_styling("hover", full_width = F) %>%
  column_spec(1,width = "10cm")%>%
  column_spec(11, bold=T) %>%
  column_spec(10,background = "#E0FFFF75",  bold = T , color = "steelblue") %>%
  #add_header_above(c( " "=2,"Fédérations"=3," "=3) ) %>%
  #row_spec(c(2,9,17,25,33,41),bold = T,color = "red") %>%
  footnote(general = "DREES, enquête aide sociale", general_title = "Source : ",
            footnote_as_chunk = T)  %>%
  scroll_box(height = "600px")


```


### Structure des places ouvertes
Les crèches collectives bien plus représentées dans le Doubs.
```{r}
bar <- ACM_PMI_dep %>% slice(2:6)%>% select(1,3:10) %>% pivot_longer(-1,names_to = "DEP") 

 

hchart(bar,
"bar",
hcaes(x=DEP,y=value,group=...1),
  showInLegend = T, stacking="percent") %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```


### Taux d'équipements en accueil collectif pour 100 enfants
La Côte d'Or mieux équipée pour les accueils collectifs
```{r}
hchart(ACM_PMI_dep %>% slice(8)%>% select(1,3:10) %>% pivot_longer(-1,names_to = "DEP") %>%
         mutate(value=round(value,2)) %>% arrange(desc(value))
,
"bar",
hcaes(x=DEP,y=value), name="Taux d'accueils collectifs pour 100 enfants",
  showInLegend = T) %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```


### Taux de scolarisation des enfants de 2 ans
D'avantage d'enfants de 2 ans scolarisés dans la Nièvre et la Saône et Loire. Moins dans l'Yonne et le Doubs.
```{r}
hchart(ACM_PMI_dep %>% slice(10)%>% select(1,3:10) %>% pivot_longer(-1,names_to = "DEP") %>% arrange(desc(value))
,
"bar",
hcaes(x=DEP,y=value), name="Taux de scolarisation des enfants de 2 ans",
  showInLegend = T) %>%
  hc_credits(enabled=T,text="Source") %>%
  hc_add_theme(thm) 
```


### Carte
```{r}

cartedep <- ACM_PMI_dep %>% slice(8,10)%>% select(1,3:10) %>% pivot_longer(!...1,names_to = "DEP") %>% pivot_wider(names_from = ...1,values_from = value) %>% rename("accueil"=2,"scolarisation"=3) %>%
  mutate(accueil=round(accueil,1),scolarisation=round(scolarisation,1), INSEE_DEP=depbfc ) 


cartedep <- merge(depwgs,cartedep,by="INSEE_DEP")

leaflet(cartedep) %>% addProviderTiles(providers$Wikimedia) %>% 
  setView(lng = 5.1, lat = 47.27, zoom = 8) %>%
    addPolygons(data=reg27carto,group  = "BFC",fill = F,color="#9370DB",weight = 5, opacity = 1) %>%
    addPolygons(weight=2,opacity = 0.8,color = "#2F4F4F", fillColor = ~pal(accueil),
              popup = popupTable(cartedep@data %>% 
                                   select(Région=NOM_DEP_M,pop,txaccueils=accueil),
                                  feature.id=F,row.numbers = F),
             group="taux d'accueils collectifs" ) %>%
  addPolygons(weight=2,opacity = 0.8,color = "#2F4F4F", fillColor = ~pal(scolarisation),
              popup = popupTable(cartedep@data %>% 
                                   select(Région=NOM_DEP_M,pop,txscolarisation=scolarisation),
                                  feature.id=F,row.numbers = F),  
                   group="taux de scolarisation") %>%   
  addLegend("bottomright", pal = pal, values = 0:100,   
           title = "taux") %>%
  addLayersControl( baseGroups =  c("taux d'accueils collectifs","taux de scolarisation"),
    options = layersControlOptions(collapsed = F,autoZIndex = F))  
```



Pour en savoir plus {data-orientation="rows" data-icon="fa-info-circle" font-size="25px" }
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="60"}
-----------------------------------------------------------------------

**Sources :**  

* DREES, enquête sociale





Navigation {data-orientation="rows" data-icon="fa-map-signs" font-size="25px" }
=======================================================================
Row {data-height="20"}
-----------------------------------------------------------------------
Row {data-height="100"}
-----------------------------------------------------------------------
1. **Généralités**  
 + [Territoire(s)](1.1_demo.html)  
 + [Structure de la population](1.2_structure.html)  
 + [évolution de la population](1.3_evol.html)  

Row {data-height="100"}
-----------------------------------------------------------------------
2. **Jeunesse**   
 + [Jeunesse](2.1_jeunesse.html)   
 + [Préscolaire](2.2_presco.html)  
 + [Accueils collectifs de mineurs](2.3_ACM.html)    

Row {data-height="100"}
-----------------------------------------------------------------------
3. **Engagement**   
 + [Vie associative](3.1_VA.html)   
 + [Service civique](3.2_SC.html)   

Row {data-height="100"}
-----------------------------------------------------------------------
4. **Formation**   
 + [Diplômes](4.1_diplomes.html)  
 + [Organismes de formation](4.2_OF3.html)  

Row {data-height="100"}
-----------------------------------------------------------------------
5. **Sport**    
 + [Clubs sportifs](5.1_clubs.html)  
 + [Licences sportives](5.2_licences.html)  
 + [Sport de nature](5.3_nature.html)  
 + [Piscines](5.4_piscines.html)  
 + [équipements sportifs](5.5_RES.html)

Régions

Row

Row

Données générales sur les accueils des enfants d’âge préscolaire

Row

Accueils d’enfants d’âge préscolaire

Comparaisons régionales

Structure des places ouvertes

Taux d’équipements en accueil collectif pour 100 enfants

Taux de scolarisation des enfants de 2 ans

Carte

Départements

Row

Row

Données générales sur les accueils des enfants d’âge préscolaire

Row

Accueils d’enfants d’âge préscolaire

Comparaisons départementales

Détail des accueils collectifs

Structure des places ouvertes

Taux d’équipements en accueil collectif pour 100 enfants

Taux de scolarisation des enfants de 2 ans

Carte

Pour en savoir plus

Row

Row

Navigation

Row

Row

Row

Row

Row

Row